home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / demos / txt / hello.mod < prev    next >
Text File  |  1993-11-04  |  391b  |  24 lines
  1. IMPLEMENTATION MODULE Hello;
  2.  
  3.  
  4. FROM Terminal IMPORT Write, WriteLn, WriteString;
  5.  
  6.  
  7. PROCEDURE WriteWithIndent(indent: CARDINAL; what: ARRAY OF CHAR);
  8. VAR
  9.   i: CARDINAL;
  10. BEGIN
  11.   FOR i:=1 TO indent DO
  12.     Write(" ");
  13.   END;
  14.   WriteString(what);
  15.   WriteLn;
  16. END WriteWithIndent;
  17.  
  18.  
  19. BEGIN
  20.   WriteWithIndent(0,"(Modul Hello startet.)");
  21. CLOSE
  22.   WriteWithIndent(0,"(Modul Hello endet.)");
  23. END Hello.
  24.